home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DRIVES.SWG
/
0077_Disk-detecting routine.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-24
|
628b
|
33 lines
{
-=> Quoting Christian Proehl to All <=-
CP> Subject: Disk-detecting routines without DOS (and
CP> Muelheim, den 20.05.94
CP> Hello!
CP> I have problem I don't know how to solve it.
CP> Perhaps someone around the world knows more, please help me!
use the bios call
function $16, int $13
}
function DiskChange( DriveNmber :Byte) :Boolean;
Begin
ASm
Mov AH, $16
Mov DL, driveNmber
Int $13
Mov AL,AH; { use AL & AH as a Return Value }
End;
End;
Begin
If DiskChange(0) then Write(' Disk has Changed in Drive ''A'' ')
Else
Write(' Disk Has changed ');
end.